home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / glazer.arc / LOANCOST.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-10-08  |  1.8 KB  |  44 lines
  1. 100 'Loan Cost ("LOANCOST")
  2. 110 CLS
  3. 120 COLOR 0,15 : PRINT "Loan Cost" : COLOR 15,0
  4. 130 PRINT
  5. 140 DEFSNG A-Z
  6. 150 DEFINT M-N
  7. 160 MONEYFMT$ = "$$##,###,###.##"
  8. 170 '     Let user choose type of loan
  9. 180 PRINT "Select type of loan"
  10. 190 PRINT
  11. 200 PRINT "1 - Fully amortized"
  12. 210 PRINT "2 - Rule of 78s"
  13. 220 PRINT "3 - Interest only plus balloon payment"
  14. 230 PRINT
  15. 240 INPUT "Type of loan (1-3): ", TYPE
  16. 250 IF (TYPE < 1) OR (TYPE > 3)  THEN PRINT "Select 1-3 only" : PRINT: GOTO 200
  17. 260 PRINT : PRINT "Do not enter dollar signs or commas" : PRINT
  18. 270 '     Let user enter amount, term, rates
  19. 280 INPUT "Loan amount: ", PNCPL
  20. 290 INPUT "Term in months: ", NMONTHS
  21. 300 INPUT "Annual interest rate on loan (in percent): ", AR
  22. 310 INPUT "Annual interest rate on savings (in percent): ", SR
  23. 320 INPUT "Marginal tax rate (in percent): ", TAXRATE
  24. 330 '     Initialize variables
  25. 340 PR = AR / 1200                     'Monthly interest rate on loan
  26. 350 SR = (1 + SR / 100) ^ (1/12) - 1   'Monthly interest rate on savings
  27. 360 SR = SR * (1 - TAXRATE / 100)
  28. 370 'Determine monthly payment
  29. 380 IF TYPE = 1 OR TYPE = 2 THEN PMT = (PNCPL * PR) / (1 - (1 + PR) ^ -NMONTHS)
  30. 390 IF TYPE = 3  THEN PMT = PNCPL * PR
  31. 400 TFC = PMT * NMONTHS - PNCPL        'Total finance charge for Rule of 78s
  32. 410 '      Calculate amortization
  33. 420 PV = 0
  34. 430 FOR M = 1 TO NMONTHS
  35. 440   IF TYPE = 1 OR TYPE = 3  THEN INTERESTDUE = PNCPL * PR
  36. 450   IF TYPE = 2  THEN INTERESTDUE = TFC * 2 * (NMONTHS - M + 1) /                                (NMONTHS * (NMONTHS + 1) )
  37. 460   PNCPL = PNCPL - PMT + INTERESTDUE
  38. 470   PV = PV + (PMT - INTERESTDUE * TAXRATE / 100) * (1 + SR) ^ -M
  39. 480 NEXT M
  40. 490 IF TYPE = 3  THEN PV = PV + PNCPL * (1 + SR) ^ -NMONTHS
  41. 500 PRINT
  42. 510 PRINT "After-tax cost of loan: "; USING MONEYFMT$; PV
  43. 520 END
  44.